home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
comm
/
misc
/
vmb1_11.lha
/
VMB
/
VMB-Install
< prev
next >
Wrap
Text File
|
1995-09-03
|
2KB
|
74 lines
;VMBIS Voice-Mailbox Installer V1.1
;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
(complete 0)
(set @default-dest "SYS:")
; ╗╗╗ Text ½½½
(set #Intro-Txt
(cat "\n\nWelcome to \n\n"
"Voice Mailbox V1.1\n\n"
"Installer"
))(set #Warning-Txt
(cat "Warning !\n\n\n"
"If you don`t have installed ZVT then install it first!\n\n"
"Voice Mailbox V1.1 requires 1 MB free on your disk \n\n"
))(set #Path-Txt
(cat "Select your ZVT directory. A directory called VMB will "
"be created there."
))(set #Path-Help
(cat "\nThis section lets you choose the "
"ZVT directory to install Voice Mailbox V1.1. \n\n"
"A directory VMB will be created there.\n\n"
"Default is SYS:\n\n\n"
@askdir-help
))
(set Assign-Help-Txt
(cat "\nThe User-Startup will be patched \n"
"...\n\n\n"
@startup-help
))
; ╗╗╗ Main ½½½
(message #Intro-Txt)
(message #Warning-Txt)
(set desti
(askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
))
(set @default-dest desti)
(makedir (tackon desti "VMB"))
(copyfiles
(prompt "Copying to " #desti)
(help @copy-files-help)
(source "")
(dest (tackon desti "VMB"))
(pattern "#?")
)
(complete 80)
(run (cat "copy " "VMBDAT/VMBd \"" desti "/VMB.info""\""))
(run (cat "copy " "VMBDAT/VMB.set \"" desti "/ZVT.Settings""\""))
; ╗╗╗ StartupSequence ½½½
(complete 95)
(startup "VMB"
(prompt "Some required commands will be added to your \"s:user-startup\" file.")
(help @startup-help)
(command "if exists \"" desti "/VMB""\"\n")
(command " assign VMB: \"" desti "/VMB""\"\n")
(command "endif""\n")
)
; ╗╗╗ Finished ½½½
(complete 100)
(exit "Thank you for using the VMB Installer.\n"
"We appreciate your business.\n\n"
"No Carrier...\n"
"CLICK.\n\n\n"
"Please reboot your computer before trying to start VMB.")